<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.5</name>
<id>-1</id>
<cardCount>4</cardCount>
<cardID>3191</cardID>
<listID>5236</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackgo to card buildset lockscreen to truechoose browse toolput the long name of this stack into tempgo to card "default"put FontName() into rssput rss into card fld fonttypesgo to card buildanswer "Is this a new or old system" with "Help" or "Old" or "New"if it is "New" thengo to card "full"put card fld "ques1" into xif x is empty thengo to card buildanswer "Click on Build Expert System to begin." with "Help" or "OK"if it is "Help" thenshow card fld helpend ifelseanswer "There is already a system here" with "OK"end ifend ifif it is "Old" thengo to card "full"put card fld "ques1" into xif x is empty thenanswer "There is no system to work on" with "OK"go to card buildshow card fld helpanswer "Click on Built Expert System to begin." with "OK"end ifend ifif it is "Help" thengo to card buildshow card fld helpget FindInField(card fld help,"Step 1","",0)end ifend openStackon closeStackupdatehide msg boxdomenu "Compact Stack"end closeStackon updateset lockscreen to trueput "Updating stack....." into msg boxput the short name of this card into xif x = "build" thenexit updatehide msg boxend ifif x = "default" thendomenu "back"put the short name of this card into xif x = "build" thenexit updateend ifelseput cd fld "ans count" into ansput cd fld "con count" into conput cd fld "cd count" into cdcput cd fld "dqcount" into dqput cd fld "dccount" into dcgo to card "fulltoo"go to next cardput the number of cards into totmultiply tot by 2repeat tot timesput the number of card flds into fldcountput the short name of this card into cdcountif fldcount < 20 or cdcount = "fulltoo" thengo to next cardnext repeatelseput ans into card fld "ans count"put con into card fld "con count"put cdc into card fld "cd count"put dc into card fld "dccount"put dq into card fld "dqcount"end ifgo to next cardend repeatend ifhide msgset lockscreen to falseend update--on idle-- hide menubar--end idle</script>
